genererBreak(Params, Retour) :- traitements(Params, 16, Retour).
genererBreak(Params, Longeur, Retour) :- traitements(Params, Longeur, Retour).% verifierBreak(Params, Retour).

traitements([], _, []).
traitements([_-NbNotes|Params], Longueur, [Ligne|Retour]) :- length(ListeDestruc, Longueur), remplir(ListeDestruc, -, Liste),  genererLigne(NbNotes, Liste, Ligne), traitements(Params, Longueur, Retour).


remplir([], _, []).
remplir([_|Liste], El, [El|Suite]) :- remplir(Liste, El, Suite).

genererLigne(0, Liste, Liste) :- !.
genererLigne(NbNotes, [_|Liste], [o|Ligne]) :- NewNbNotes is (NbNotes - 1), genererLigne(NewNbNotes, Liste, Ligne).
genererLigne(NbNotes, [_|Liste], [-|Ligne]) :- genererLigne(NbNotes, Liste, Ligne).